home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / bipl.zip / IDOL.ZIP / BUFTEST.IOL < prev    next >
Text File  |  1991-12-30  |  359b  |  20 lines
  1. # buffer classes' tests
  2.  
  3. procedure main(args)
  4.   if *args=0 then stop("usage: buftest cp file1 file2")
  5.   every i := 1 to *args do {
  6.       case args[i] of {
  7.       "cp": {
  8.           cp(args)
  9.       }
  10.       }
  11.   }
  12. end
  13. procedure cp(args)
  14.   b1 := buffer(args[2])
  15.   b2 := buffer(args[3])
  16.   b2$erase()
  17.   while s:=b1$forward() do b2$insert(s)
  18.   b2$write()
  19. end
  20.